home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 37 / IOPROG_37.ISO / SOFT / Multilizer.exe / disk1 / data1.cab / data1 / [Group9]VCL Source Standard / ivebindi.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-12  |  434 b   |  27 lines
  1. unit IvEBinDi;
  2.  
  3. interface
  4.  
  5. uses
  6.   Classes, IvAMulti, IvBinDic;
  7.  
  8. type
  9.   TIvEmbeddedBinaryDictionary = class(TIvBinaryDictionary)
  10.   public
  11.     constructor Create(owner: TComponent); override;
  12.  
  13.   published
  14.     property Storage default ivsEmbedded;
  15.   end;
  16.  
  17. implementation
  18.  
  19. constructor TIvEmbeddedBinaryDictionary.Create(owner: TComponent);
  20. begin
  21.   inherited Create(owner);
  22.   FStorage := ivsEmbedded;
  23. end;
  24.  
  25. end.
  26.  
  27.